home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / wildcat / qwkhold1.zip / QWK2MAKE.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-05-17  |  10KB  |  550 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  10068 bytes  03/09/122  08:19:16am
  3. '! Code Segment Size  :7299 bytes
  4. '! Data Segment Size  :5823 bytes
  5. '! String Segment Size:2769 bytes
  6. '! Compiled with WCC version 4.12
  7.  
  8.       Type Type26
  9.         Filler0(1 To 6) As Byte
  10.         s6 As String*70
  11.         Filler76(1 To 14) As Byte
  12.         s90 As String*70
  13.         Filler160(1 To 14) As Byte
  14.         s174 As String*70
  15.         Filler244(1 To 20) As Byte
  16.         w264 As Word
  17.       End Type
  18.  
  19.       Dim i4463 As Integer
  20.       Dim s4465 As String
  21.       Dim s4469 As String
  22.       Dim d4473 As Date
  23.       Dim i4475 As Integer
  24.       Dim s4477 As String
  25.       Dim s4481 As String
  26.       Dim s4485 As String
  27.       Dim w4489 As Word
  28.       Dim s4491 As String
  29.       Dim sr4495 As SearchRec
  30.       Dim l4544 As Long
  31.       Dim i4548 As Integer
  32.       Dim i4552 As Integer
  33.       Dim s4554 As String
  34.       Dim s4558 As String
  35.       Dim s4562 As String
  36.       Dim s4566 As String
  37.       Dim s4570 As String
  38.       Dim i4574 As Integer
  39.       Dim i4576 As Integer
  40.       Dim l4578 As Long
  41.       Dim mh4582 As MessageHeader
  42.       Dim i4902 As Integer
  43.       Dim s4904 As String
  44.       Dim nir4908 As NodeInfoRecord
  45.       Dim i5094 As Integer
  46.       Dim i5096 As Integer
  47.       Dim i5098 As Integer
  48.       Dim s5100 As String
  49.       Dim o5104 As Boolean
  50.       Dim s5105 As String
  51.       Dim s5109 As String
  52.       Dim s5113 As String
  53.       Dim s5117 As String
  54.       Dim s5123 As String
  55.       Dim s5127 As String
  56.       Dim s5135 As String
  57.       Dim i5139 As Integer
  58.       Dim s5147 As String
  59.       Dim s5151 As String
  60.       Dim l5155 As Long
  61.       Dim ur5163 As UserRecord
  62.       Dim s5813 As String
  63.       Dim i5817 As Integer
  64.  
  65.       Dim l65530_ As Long
  66.       Dim i65534_ As Integer
  67.  
  68.       EnablePages 0
  69.       EnablePages 0
  70.       s4491 = ProgPath + "QWK2HOLD.CFG"
  71.       If Exists(s4491) Then
  72.         Open s4491 For Input As 1
  73.         If Not Local Then
  74.           CarrierCheck(0)
  75.         End If
  76.   110   LockFile(1, 0, 1)
  77.         Input #1, s5813
  78.         Input #1, i5817
  79.         Input #1, s5135
  80.         Input #1, s5123
  81.         Input #1, s5147
  82.         Input #1, s5151
  83.         Input #1, i4576
  84.         Input #1, i4574
  85.         Input #1, l4578
  86.         Input #1, i4902
  87.         Input #1, s5105
  88.         Input #1, s5109
  89.         Input #1, s5113
  90.         Input #1, s5117
  91.         Input #1, s5127
  92.         Input #1, s4554
  93.         Input #1, s4558
  94.         Input #1, s4562
  95.         Input #1, s4566
  96.         Input #1, s4570
  97.         UnlockFile(1, 0, 1)
  98.         Close 1
  99.         If Not Local Then
  100.           CarrierCheck(-1)
  101.         End If
  102.   296 Else
  103.   302   i4463 = 0
  104.         GoTo 6322
  105.       End If
  106.   314 If s5813 = "" Then
  107.         i4463 = 1
  108.         GoTo 6322
  109.       Else
  110.   350   s5813 = Trim(UCase(s5813))
  111.         If Mid(s5813, 2, 2) <> ":\" Then
  112.           i4463 = 1
  113.           GoTo 6322
  114.         End If
  115.   401   If Right(s5813, 1) <> "\" Then
  116.           s5813 = s5813 + "\"
  117.         End If
  118.       End If
  119.   438 If s5135 = "" Then
  120.         i4463 = 2
  121.         GoTo 6322
  122.       Else
  123.   474   s5135 = Trim(UCase(s5135))
  124.         If Mid(s5135, 2, 2) <> ":\" Then
  125.           i4463 = 2
  126.           GoTo 6322
  127.         End If
  128.   525   If Right(s5135, 1) <> "\" Then
  129.           s5135 = s5135 + "\"
  130.         End If
  131.       End If
  132.   562 If s5123 = "" Then
  133.         i4463 = 3
  134.         GoTo 6322
  135.       Else
  136.   598   s5123 = UCase(s5123)
  137.       End If
  138.   609 If s5147 = "" Then
  139.         s5147 = "NO SEC1"
  140.       Else
  141.   641   s5147 = Trim(UCase(s5147))
  142.       End If
  143.   655 If s5151 = "" Then
  144.         s5151 = "NO SEC2"
  145.       Else
  146.   687   s5151 = Trim(UCase(s5151))
  147.       End If
  148.   701 If s5127 = "" Then
  149.         i4463 = 15
  150.         GoTo 6322
  151.       Else
  152.   737   s5127 = Trim(UCase(s5127))
  153.         If Mid(s5127, 2, 2) <> ":\" Then
  154.           i4463 = 15
  155.           GoTo 6322
  156.         End If
  157.   788   If Right(s5127, 1) <> "\" Then
  158.           s5127 = s5127 + "\"
  159.         End If
  160.       End If
  161.   825 If i4576 <= 0 Then
  162.         i4576 = 1
  163.       End If
  164.   846 If i4576 >= 26 Then
  165.         i4576 = 26
  166.       End If
  167.   868 If i4574 <= 0 Then
  168.         i4574 = 0
  169.       End If
  170.   888 If i4574 >= 365 Then
  171.         i4574 = 365
  172.       End If
  173.   912 If l4578 <= 0 Then
  174.         l4578 = 2147483647
  175.       End If
  176.   936 If l4578 >= 2147483647 Then
  177.         l4578 = 2147483647
  178.       End If
  179.   964 If s5105 = "" Or Len(s5105) <> 2 Then
  180.         s5105 = "@0E@"
  181.       Else
  182.  1009   s5105 = "@" + UCase(s5105) + "@"
  183.       End If
  184.  1034 If s5109 = "" Or Len(s5109) <> 2 Then
  185.         s5109 = "@0F@"
  186.       Else
  187.  1079   s5109 = "@" + UCase(s5109) + "@"
  188.       End If
  189.  1104 If s5113 = "" Or Len(s5113) <> 2 Then
  190.         s5113 = "@0B@"
  191.       Else
  192.  1149   s5113 = "@" + UCase(s5113) + "@"
  193.       End If
  194.  1174 If s5117 = "" Or Len(s5117) <> 2 Then
  195.         s5117 = "@0C@"
  196.       Else
  197.  1219   s5117 = "@" + UCase(s5117) + "@"
  198.       End If
  199.  1244 CurrentDate d4473
  200.       s4465 = FormatDate(d4473, "ddmmyyyy")
  201.       s4477 = Left(s4465, 2)
  202.       s4481 = Mid(s4465, 3, 2)
  203.       s4485 = Mid(s4465, 5, 4)
  204.       i4475 = (Val(s4485) - 1980) * 512 + Val(s4481) * 32 + Val(s4477)
  205.       If s5813 = s5135 Then
  206.         i4463 = 3
  207.         s4469 = "QWK2: Line #1 and Line #3 of QWK2HOLD.CFG MUST NOT be the same."
  208.         Print s4469
  209.         ActivityLog s4469
  210.       Else
  211.  1405   i5094 = 0
  212.         i4548 = 0
  213.  1417   Do While i4548 < i4576
  214.           s4904 = s5135 + Str(User.UserId) + ".QW" + Chr(i5094 + 65)
  215.           s5100 = s5135 + Str(User.UserId) + ".QW" + Chr(i4548 + 65)
  216.           If Exists(s5100) Then
  217.             i4548 = i4548 + 1
  218.             i5094 = i5094 + 1
  219.             If s5100 <> s4904 Then
  220.               Name s5100 As s4904
  221.             End If
  222.  1589     Else
  223.  1595       i4548 = i4548 + 1
  224.           End If
  225.  1609   Loop
  226.  1615   i5139 = i5094
  227.         MorePrompt(0)
  228.         s4469 = "QWK2: Packet Storage program has started"
  229.         ActivityLog s4469
  230.         s4491 = ProgPath + "QWK2WAIT.BAT"
  231.         If Exists(s4491) Then
  232.           Del s4491
  233.         End If
  234.  1680   GetFirstUser(ur5163, 5)
  235.         i4552 = Val(Mid(s5123, 9, 1))
  236.         If UCase(Trim(Left(ur5163.Comment(i4552), 8))) = "QWK2 ON" Then
  237.           o5104 = 0
  238.           Print s5117; "QWK2 ON"; s5105; " ---> ["; s5109; ur5163.UserId; s5105; "]   ["; s5113; ur5163.Name; s5105; "]."
  239.           Delay 4
  240.           l5155 = 0
  241.           GoSub 2472
  242.         Else
  243.  1893     Print s5105; "QWK2 OFF --> ["; s5109; ur5163.UserId; s5105; "]   ["; s5113; ur5163.Name; s5105; "]."
  244.         End If
  245.  1969   Print "Finished checking first user record."
  246.  1978   Do While GetNextUser(ur5163, 5)
  247.           o5104 = 0
  248.           i4552 = Val(Mid(s5123, 9, 1))
  249.           If UCase(Trim(Left(ur5163.Comment(i4552), 8))) = "QWK2 ON" Then
  250.             Print s5117; "QWK2 ON"; s5105; " ---> ["; s5109; ur5163.UserId; s5105; "]   ["; s5113; ur5163.Name; s5105; "]."
  251.             Delay 4
  252.             GoSub 2472
  253.           Else
  254.  2190       Print s5105; "QWK2 OFF --> ["; s5109; ur5163.UserId; s5105; "]   ["; s5113; ur5163.Name; s5105; "]."
  255.           End If
  256.  2266   Loop
  257.  2272   GoSub 5631
  258.         If Exists(s5127 + "QWK2MA1.FLG") Then
  259.           Del s5127 + "QWK2MA1.FLG"
  260.         End If
  261.  2312   If Exists(s5127 + "QWK2MA2.FLG") Then
  262.           Del s5127 + "QWK2MA2.FLG"
  263.         End If
  264.  2346   If Exists(s5127 + "QWK2MA3.FLG") Then
  265.           Del s5127 + "QWK2MA3.FLG"
  266.         End If
  267.  2380   If Exists(s5127 + "QWK2MA4.FLG") Then
  268.           Del s5127 + "QWK2MA4.FLG"
  269.         End If
  270.  2414   If Exists(s5127 + "QWK2MA5.FLG") Then
  271.           Del s5127 + "QWK2MA5.FLG"
  272.         End If
  273.  2448   s4469 = "QWK2: Packet Storage program has ended."
  274.         ActivityLog s4469
  275.         MorePrompt(-1)
  276.         End 
  277.  2472   Print s5105; "QWK2: "; s5113; ur5163.Name; s5105; " Verifying user account is not open."
  278.         Delay 2
  279.         s4491 = ProgPath + "QWK2WAIT.BAT"
  280.         i5094 = 0
  281.         i4463 = 0
  282.         l5155 = 0
  283.  2558   Do While i5094 <= MaxNode
  284.           GetNodeInfo nir4908, i5094
  285.           If nir4908.NodeStatus = 3 Then
  286.             If Trim(nir4908.CallersName) = UCase(Trim(ur5163.Name)) Then
  287.               o5104 = -1
  288.               Open s4491 For Append As 2
  289.               LockFile(2, 0, 1)
  290.               s4465 = "WCMAIL " + UCase(Trim(ur5163.Name)) + " /PRESCAN"
  291.               Print #2, s4465
  292.               UnlockFile(2, 0, 1)
  293.               Close 2
  294.               s4469 = "QWK2: " + ur5163.Name + "'s account was found open on node " + Str(i5094) + "."
  295.               ActivityLog s4469
  296.               Print s5105; "QWK2: "; s5113; ur5163.Name; "'s"; s5105; " account found "; s5117; "active"; s5105; " on Node #"; s5113; i5094; s5105; "!"
  297.               Delay 2
  298.               i5094 = MaxNode + 1
  299.             End If
  300.           End If
  301.  2911     i5094 = i5094 + 1
  302.         Loop
  303.  2931   i5094 = 0
  304.         s4469 = ""
  305.         s4491 = ""
  306.         Print s5105; "QWK2: "; s5113; ur5163.Name; s5105; " Finished verifying account status."
  307.         Delay 2
  308.         If o5104 = -1 Then
  309.           Return 
  310.         End If
  311.  3026   i5094 = 0
  312.         i4548 = 0
  313.         Print s5105; "QWK2: "; s5113; ur5163.Name; s5105; " Checking for existing and New packets."
  314.  3084   Do While i4548 < i4576
  315.           s4904 = s5135 + Str(ur5163.UserId) + ".QW" + Chr(i5094 + 65)
  316.           s5100 = s5135 + Str(ur5163.UserId) + ".QW" + Chr(i4548 + 65)
  317.           If Exists(s5100) Then
  318.             i4548 = i4548 + 1
  319.             i5094 = i5094 + 1
  320.             If s5100 <> s4904 Then
  321.               Name s5100 As s4904
  322.             End If
  323.  3256     Else
  324.  3262       i4548 = i4548 + 1
  325.           End If
  326.  3276   Loop
  327.  3282   Cls 
  328.         Locate 8, 1
  329.         Print s5105; "QWK2: "; s5113; ur5163.Name; s5105; " Checking storage depot."
  330.         i4548 = 0
  331.         i5139 = 0
  332.         i5098 = 0
  333.         l5155 = 0
  334.  3362   Do While i4548 < i4576
  335.           s4904 = s5135 + Str(ur5163.UserId) + ".QW" + Chr(i5139 + 65)
  336.           If Exists(s4904) Then
  337.             i5139 = i5139 + 1
  338.             FindFirst(s4904, 0, sr4495)
  339.             l4544 = sr4495.Size
  340.             w4489 = sr4495.DOSDate
  341.             l5155 = l5155 + sr4495.Size
  342.             MorePrompt(0)
  343.             Locate 10, 1
  344.             ClrEOL 
  345.             Print s5105; "QWK2: "; s5113; ur5163.Name; s5105; " Last stored packet found was "; s5109; sr4495.Name; s5105; "."
  346.             Print
  347.             Print s5105; "Total Packets Found ......... ";
  348.             If i5139 > i4576 Then
  349.               Print s5117; i5139
  350.             Else
  351.  3659         Print s5109; i5139
  352.             End If
  353.  3674       Print s5105; "Maximum # Packets Allowed ... "; s5109; i4576
  354.             ClrEOL 
  355.             Print s5105; "Last Checked Packet Size .... "; s5109; l4544; s5105; " Bytes"
  356.             Print s5105; "Total Packet Storage ........ ";
  357.             If l5155 > l4578 Then
  358.               Print s5117; l5155; s5105; " Bytes"
  359.             Else
  360.  3813         Print s5109; l5155; s5105; " Bytes"
  361.             End If
  362.  3841       Print s5105; "Packet Storage Maximum ...... "; s5109; l4578; s5105; " Bytes"
  363.             ClrEOL 
  364.             Print s5105; "Packet Age Maximum .......... "; s5109; i4574; s5105; " Day(s)"
  365.             If i4475 - w4489 > i5098 Then
  366.               i5098 = i4475 - w4489
  367.             End If
  368.  3968       Print s5105; "Oldest Packet Age was ....... ";
  369.             If i5098 > i4574 Then
  370.               Print s5117; i5098; s5105; " Day(s)"
  371.             Else
  372.  4035         Print s5109; i5098; s5105; " Days(s)"
  373.             End If
  374.  4063       ClrEOL 
  375.           End If
  376.  4066     i4548 = i4548 + 1
  377.         Loop
  378.  4086   Delay 3
  379.         Print
  380.         If i5139 < i4576 And l5155 < l4578 Then
  381.           s4465 = s5135 + Str(ur5163.UserId) + ".QW"
  382.           s4904 = s4465 + Chr(i5139 + 65)
  383.           s5100 = s5813 + Str(ur5163.UserId) + ".QWK"
  384.           If Exists(s5100) Then
  385.             CopyFile(s5100, s4904)
  386.             s4465 = Str(ur5163.UserId) + ".QWK"
  387.             DeleteFile(s4465, i5817, 1)
  388.             i5139 = i5139 + 1
  389.             FindFirst(s4904, 0, sr4495)
  390.             l4544 = sr4495.Size
  391.             l5155 = l5155 + sr4495.Size
  392.           End If
  393.         End If
  394.  4332   Do While i5139 < i4576 And l5155 < l4578 And i5098 < i4574
  395.           Cls 
  396.           s4465 = "WCMAIL " + Trim(ur5163.Name) + " /PRESCAN"
  397.           Shell s4465, ""
  398.           If Exists(s5100) Then
  399.             s4465 = s5135 + Str(ur5163.UserId) + ".QW"
  400.             s4904 = s4465 + Chr(i5139 + 65)
  401.             s5100 = s5813 + Str(ur5163.UserId) + ".QWK"
  402.             CopyFile(s5100, s4904)
  403.             s4465 = Str(ur5163.UserId) + ".QWK"
  404.             DeleteFile(s4465, i5817, 1)
  405.             FindFirst(s4904, 0, sr4495)
  406.             s4465 = "QWK2: " + ur5163.Name + " had the new packet moved to"
  407.             s4465 = s4465 + " storage location " + sr4495.Name + "."
  408.             ActivityLog s4465
  409.             l4544 = sr4495.Size
  410.             l5155 = l5155 + sr4495.Size
  411.             i5139 = i5139 + 1
  412.           Else
  413.  4703       GoTo 4716
  414.             Return 
  415.           End If
  416.  4710   Loop
  417.  4716   Print s5105; "QWK2: "; s5113; ur5163.Name; s5105; " Finished checking and or making packets."
  418.         Delay 3
  419.         If o5104 = -1 Then
  420.           Return 
  421.         End If
  422.  4787   Print s5105; "QWK2: "; s5113; ur5163.Name; s5105; " Checking for any exceeded limits."
  423.         Delay 2
  424.         i5096 = Val(Mid(s5123, 9, 1))
  425.         s4465 = Pad(UCase(Left(ur5163.Comment(i5096), 9)), 9)
  426.         ur5163.Comment(Val(Mid(s5123, 9, 1))) = s4465
  427.         If i5139 >= i4576 Then
  428.           s4465 = "QWK2: " + ur5163.Name + " has reached the QWK2 MaxPacket limit of "
  429.           s4465 = s4465 + Str(i4576) + "."
  430.           ActivityLog s4465
  431.         End If
  432.  5048   If l5155 >= l4578 Then
  433.           s4465 = "QWK2: " + ur5163.Name + " has exceeded the QWK2 MaxSize limit of "
  434.           s4465 = s4465 + Str(l4578) + "."
  435.           ActivityLog s4465
  436.         End If
  437.  5126   If i5098 >= i4574 Then
  438.           s4465 = "QWK2: " + ur5163.Name + " has QWK2 packet(s) that reached the "
  439.           s4465 = s4465 + "old age of " + Str(i4574) + " days."
  440.           ActivityLog s4465
  441.           s4465 = "QWK2: " + ur5163.Name + " had the Automated QWK option turned off."
  442.           ActivityLog s4465
  443.           ur5163.Comment(Val(Mid(s5123, 9, 1))) = "QWK2 OFF "
  444.           s4469 = Chr(13) + Chr(13)
  445.           s4465 = "This is an automated message." + s4469
  446.           s4465 = s4465 + "The automatic mail packets you requested are not" + " being picked up." + s4469
  447.           s4465 = s4465 + "This option has been turned off and packets found" + " after 15 days will be deleted."
  448.           If Exists(ProgPath + "QWK2WARN.TXT") Then
  449.             s4465 = ProgPath + "QWK2WARN.TXT"
  450.           End If
  451.  5414     mh4582.To = ur5163.Name
  452.           mh4582.From = MakeWild.SysopName
  453.           FlagSet mh4582.Flags, 1
  454.           FlagSet mh4582.Flags, 2
  455.           mh4582.Subject = "QWK Age Limit"
  456.           AddMessage(mh4582, s4465, "", i4902)
  457.           s4469 = s5105 + "QWK2: " + s5113 + ur5163.Name + s5105 + " was sent a message advising of old mail."
  458.           ActivityLog s4469
  459.         End If
  460.  5569   UpdateUser(ur5163)
  461.         Print s5105; "QWK2: "; s5113; ur5163.Name; s5105; " Finished checking limits."
  462.         Delay 3
  463.         Return 
  464.  5631   Print s5105; "QWK2: Checking for any expired packets."
  465.         Delay 3
  466.         s4465 = s5135 + "*.QW?"
  467.         i5096 = FindFirst(s4465, 0, sr4495)
  468.         Cls 
  469.         MorePrompt(0)
  470.         Locate 8, 1
  471.         Print s5105; "Deleting any QWK2 Packets over "; s5109; i4574 + 15; s5105; " days old."
  472.         Locate 10, 1
  473.         Print s5105; "     FileName   AGE         Size"
  474.  5767   Do While i5096 = 0
  475.           Locate 12, 1
  476.           ClrEOL 
  477.           Print s5105; LeftPad(sr4495.Name, 12);
  478.           If i4475 - sr4495.DOSDate > i4574 Then
  479.             Print s5117;
  480.           Else
  481.  5859       Print s5109;
  482.           End If
  483.  5867     Print LeftPad(Str(i4475 - sr4495.DOSDate), 7);
  484.           Print s5113; LeftPad(Str(sr4495.Size), 14)
  485.           If i4475 - sr4495.DOSDate > i4574 Then
  486.             Delay 4
  487.           Else
  488.  5965       Delay 0.2
  489.           End If
  490.  5973     If i4475 - sr4495.DOSDate > i4574 + 15 Then
  491.             s4904 = LeftPad(sr4495.Name, 12)
  492.  6046       For i5094 = 1 To 26 Step 1
  493.               s4469 = Trim(Left(s4904, 8)) + ".QW" + Chr(64 + i5094)
  494.               s5100 = s5135 + s4469
  495.               If Exists(s5100) Then
  496.                 Locate 6, 1
  497.                 Print s5105; "Last expired QWK Packet."
  498.                 ClrEOL 
  499.                 Print s5109; s4469; s5117; "  has expired and was removed."
  500.                 Delay 3
  501.                 Del s5100
  502.                 s4465 = "QWK2: Deleted expired packet " + s4469 + "."
  503.                 ActivityLog s4465
  504.               End If
  505.  6256       Next
  506.           End If
  507.  6279     i5096 = FindNext(sr4495)
  508.         Loop
  509.  6296   Print
  510.         Print s5105; "Finished checking for Expired packets."
  511.         Delay 3
  512.         Return 
  513.       End If
  514.  6322 Cls 
  515.       Print
  516.       If i4463 = 0 Then
  517.         Print s5117; "Your QWK2HOLD.CFG file was not located."
  518.       End If
  519.  6356 If i4463 >= 1 And i4463 <= 10 Then
  520.         Print s5105; "Line #"; s5109; i4463; s5105; " of the QWK2HOLD.CFG has a problem."
  521.       End If
  522.  6423 Print
  523.       Print s5105; "The current values of your "; s5109; "QWK2HOLD.CFG"; s5105; " file are"; s5109; ":"
  524.       Print s5105; "Line  #1 = ["; s5109; s5813; s5105; "]"
  525.       Print s5105; "Line  #2 = ["; s5109; i5817; s5105; "]"
  526.       Print s5105; "Line  #3 = ["; s5109; s5135; s5105; "]"
  527.       Print s5105; "Line  #4 = ["; s5109; s5123; s5105; "]"
  528.       Print s5105; "Line  #5 = ["; s5109; s5147; s5105; "]"
  529.       Print s5105; "Line  #6 = ["; s5109; s5151; s5105; "]"
  530.       Print s5105; "Line  #7 = ["; s5109; i4576; s5105; "]"
  531.       Print s5105; "Line  #8 = ["; s5109; i4574; s5105; "]"
  532.       Print s5105; "Line  #9 = ["; s5109; l4578; s5105; "]"
  533.       Print s5105; "Line #10 = ["; s5109; i4902; s5105; "]"
  534.       Print s5105; "Line #11 = ["; s5109; Mid(s5105, 2, 2); s5105; "]"
  535.       Print s5105; "Line #12 = ["; s5109; Mid(s5109, 2, 2); s5105; "]"
  536.       Print s5105; "Line #13 = ["; s5109; Mid(s5113, 2, 2); s5105; "]"
  537.       Print s5105; "Line #14 = ["; s5109; Mid(s5117, 2, 2); s5105; "]"
  538.       Print s5105; "Line #15 = ["; s5109; s5127; s5105; "]"
  539.       Print
  540.       WaitEnter 
  541.       s4469 = "QWK2 Ended with on an error of some kind"
  542.       Print
  543.       Print s4469
  544.       ActivityLog s4469
  545.       s4469 = "Check line #" + Str(i4463) + " of the QWK2HOLD.CFG."
  546.       Print
  547.       Print s4469
  548.       ActivityLog s4469
  549.       End 
  550.